Option Explicit
Sub C_Sample045()
    Dim myWb As Workbook
    Dim myWd As Window
    Set myWb = Workbooks(1) 			'Nï
    Set myWd = myWb.Windows(1)		'N
    With myWd
        .Caption = "Change!"  		'D
        '.Caption = .Parent.Name  	'^Ӫp]u@ӵɡ^
        .DisplayFormulas = False  	'
        .DisplayGridlines = True  	'u
        .DisplayHeadings = True 	'Cs
        .DisplayHorizontalScrollBar = True	'ʶb
        .DisplayOutline = False 	'~ؽu
        .DisplayVerticalScrollBar = True 	'ʶb
        .DisplayWorkbookTabs = True 	'D
        .DisplayZeros = False			'0
    End With
    Set myWd = Nothing				'
    Set myWb = Nothing
End Sub
